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CONFIDENTIAL 


The material in this book represents a constantly changing 
workbook.. Because of these conditions, this information 
may at any time be outdated. 




FORTRAN IVA SYSTEM 


DESIGN WORKBOOK 

• . JUNE - SEPT., 1963 

. •' Computer Usage Company, Inc. 

655 Madison Avenue . ' 6265 Manchester Blvd. 

New York, New York 10021 '• Los Anseles. California'• 



FORTRAN IVA is a programming system for the IBM 7090/7094 


; designed to speed the processing of all?FORTRAN jobs. ‘This new • \ V • 
system will process jobs consisting primarily of FORTRAN compilations 
approximately five times faster than the IBJOB system running under 
equivalent conditions. The execution time required for object programs ■- 
will be approximately the same as that for object programs produced by 
FORTRAN IV under IBJOB. 

The FORTRAN IVA System operates under control of the Basic • 
Monitor (IBSYS) and permits operation from 729 magnetic tape units, 

7320 magnetic drum, 7340 hypertapes or 1301 magnetic disc system. 

Both the compiler and the object system are designed to take advantage 7. 
of the logic of the IBM 7094-11. The compiler will operate on a 7090, 

7094 or 7094-11 and produce object programs for any of these same 
machines. 

This system permits a considerable degree of compatibility with ‘ 
programs prepared for use with the IBJOB system. FORTRAN IV state¬ 
ments which may be used in one are acceptable without change to the 
. other. In some cases, the sequencing of the source deck may require 
: ’ slight changes. Since the FORTRAN IVA Loader does not accept, input 
; in the format processed by IBLDR, it will be necessary that existing 
FORTRAN IV programs be recompiled and existing MAP subprograms 
be reassembled for use with programs and subprograms prepared by the 
new system. Some small changes may be required in MAP subprograms. ' ' 
' Since the same library functions and compiler conversion routines will ;; 
be used, identical computed results are assured. y 





. Among the new features available with the FORTRAN IVA system 
are: . 


(1) The ability to compile directly to a library file 
of user programs. When this file is maintained - 
on disc or drum, it becomes a valuable method 
for handling and storing object programs in use 
at an installation. 

(2) An absolute self-loading job deck may be obtained 
from the Loader thus permitting future production 't 
runs to be made simply. 

(3) The system provides for semi-automatic overlay 
of subprograms with minimum manipulations 
required by the source programmer. 



In exchange for the added speed, the user of FORTRAN IVA must 
be prepared for some slight system limitations. 

(1) No program or subprograms may designate more 

than seven COMMON blocks. v ')'-.\ 

: 'y(:k ’ ; 

' (2) The following statements must all precede the . ’ " * 

'first executable statement: COMMON, DIMENSION, r ^ 

' J : : EQUIVALENCE, DATA, BLOCK DATA, TYPE, 

: | ^ ; SUBROUTINE, FUNCTION and arithmetic statement 
functions. FORMATS may appear anywhere. 

' -Vv:;: ( 3 ) The method of processing will limit source programs ■ 
to approximately 500 to 700 FORTRAN IV statements 
h and 500 to 700 MAP statements. These limits may 



be readily circumvented by breaking oversize programs 


into smaller subprograms. ,. 


V.-' ' 
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( 4) . The object program will not utilize the 7090/94 

Input /Output Control System. Instead, individual ■ 
library routines will be brought in to perform all ' ; ' 
the functions required by FORTRAN IV object , , - 

programs. 

(5) While informative charts and listings will be 

. ' produced during each compilation, a symbolic 

assembly listing of the object program will not 
be available since the compiler produces machine 
code directly. 

Table I lists the control cards and options available within the 
FORTRAN IVA system. . 










CONTROL CARDS 


$F4JOB Name \( GO 


NOGO 

LIBRUN 


''J (M94[ (tXr'I 

' ImToJ ' |nXRJ 


CHART 


NOCHART 


(iocs') \( 

• QlORTJj 


USER 

SYSTEI 


$FORT4 Progname f LIST 


NOLIST 


DECK 


■ 


(NODECK 


$SAF Progname /DECK.. ^ 

'- s 

[nodeck. 


$OBJECT Progname 


6 5 

$LIBEDT Progname 


|aDD^ 


* U DELETE H (COPY 


$LIBLST 


NOCOPY 


, \ CHANGE, Name 



The following control cards generate information in the Communications 
region that is used only by the Loader. 


$USE 


Libname USER 


^ SYSTEM 


$OMIT 


Progname 


$NAME Progname* Revname 


^OVERLAY 


units f Subprogname, Subprogname 


$ETC. Subprogname 
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1. Name of a main program is required if this option is used. 

2. These options require further definition. 

3. Program name is mandatory if this is a main program. 

4. Indicates relocatable binary program follows. 

5. Program name is required if DELETE or CHANGE option is used. They 
cannot coexist on the same card. 

6. The appearance of the ADD option refers to the entire job. Whereas DELETE 
refers to the program name. .There may be more than one DELETE requested 
in a job. 

7. When a.library list is to be performed it must be the only processing request 
in a job. 

8. The program name specified will be used from the library instead of the Load 
File. 

9. The program specified will be omitted from loading. 

10. This is a temporary renaming of the program name. 

11. The number of tape units available to the loader for preparing object 
overlays for the specified subprograms. 

In equal GO or NOGO and/or the appearance of $LIBEDT will result in an 

update of the library tape. The new Library tape will be used by the Loader . 

If the options were GO and/or $LIBEDT the Loader operates as if in the LIBRUN 

mode. 
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Order of Control Cards 


Major Control Cards 


$ F 4JOB 
$ FORTA 
$ SAF 
$ LIBEDT 


precedes every job. 
precedes each compilation, 
precedes each assembly. 

The order will not effect the processing. The 
library edit will occur immediately before any loading. 


Rem ain ing cardg*may follow any of the major confrol cards or may 
appear after the END card in the last Fortran or Map deck. 
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FORTRAN 4A SY 


RTRAN n MONITOR SYS. 


































ABS- 
- self loading 
deck 
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Since the system will run under H3SYS—the processor's 1-0 Require¬ 
ments are taken care of—except for some possible fancy tape man¬ 
ipulations. : ' V 

Object Program will use selected IOCS sections from library—only 
required pieces—ho buffering or label checking. ; 

Self loader will probably have ability to reassign 1-0 units at load . 














-rsAwk *-**-*«». 


System Communication Region 


Instead of generating and/or passing control cards down to lower system, 
we will use a System Communications Region which will contain information 
about each job being processed. Various options will be represented by bit 
positions. 


Discovered information (fatal diagnostics, number of subprograms; name 
*of main program; etc.) will also be passed down through this region. 
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System Communication Region 


Bit Flags 


GO/NOGO / 

JP.e.ck/N0BECK //'SS /A)Q-ft>£ 


Loadfile /LIBRUN 


7090/7094 

Liblst/NoLiblst 




Libcpy/ NoLibcpy 


An External function appealed 




U 




A diagnostic failure occurred \ 'V/ygC*/*-* 
A main program has been compiled 




^ .\ <$ 


Counts 


n index registers ( 

# compilations and assemblies in this job\ 




Names 


Libadd 


Title (main program) ^J 

Libdel (may be more than one) 

Libadd .(may be more than one) 

Qmit (may be more than one) 

Libchg (2 names) (may be more than one) 
Name (2 names) (may be more than one) 
Use (2 names) (may be more than one) 




Qmit 


>verla-\ 


3 words (may be more than one) 
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System Tape Repositioning Method 

System Control always reads one .card ahead for all processors/ 

Whenever it reads a "next-action" control card, it either: 

• (a) takes immediate action 

or : ' :t ’ •' 

# . • * 

(h) stacks the requiremtns as a list and works through the list 
interspersed between subsequent reads and writes. 





B 4 

8/16/63 










TAPE 


PHASE 1 


SYSLB1 

Rd 


Rd 


Rd 

C 

SYSIN1 


Rd 


Rd 


SYSC^l 


S-Wr 


S-Wr 


S-Wr 

SYSUT3 

' 

S-Wr 

■ 


RWD 

l: 



-1- 

-j- :- 

isrami 




SYSUT2 

l . 











.' 

iaa 







one compilation - 


Rd «= Read 
W = Write 
S-Wr = Sporadic Write 
RWD = Rewind 
Rep = Reposition 


O 

















































I 


I ( jlL • Technical Changes to be Considered 

1 . Compiler external file will be a "spill” type file. Thus small programs 
will remain entirely in core. 

2. Compiler records will be as few in number as possible. 

3. All diagnostics from Phase I will be in a tape record following Phase II. ; • 

. Only when needed will it be read in. Thus, valid batch'compilations will , 

be faster and compilations of invalid programs will be slower. 


/ 





« /fl ISJS. 








Main /subprogram 
List/No list 


An adjustable dimension appears * 

Double Data Function * 

Subprogram without arguments * 

External Function Definition . 

External'Function Transmission * 

Diagnostic of Level 1 

Diagnostic of Level 2 ’ * 

Diagnostic of Level 3 
BLOCK DATA subprogram * 

Notes: * applies if subprogram only 

< . .' • 

$*** 

The System Communication Region is available to all parts of the compiler. 


C 1 .5 
7/24/63 






















Table Handling Method (provisional) 


The buffer table method will be used modified as follows: 


(b) Groups may be characterized by either 

(1) common to a phase 

(2) same buffer size 

For example, there might be four groups: 

Group 1 Phase I only--tables with large buffer size 

Group 2 Phase I only—tables with small buffer size 

Group 3 , Phase II only--tables with small buffer size 

Group 4 Phase I - II tables with medium buffer size 
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' 1 $l 


ip 




m 


« 


1 ■: 


O 



«-! \vV 

s.p 

il!i;;j ;p 




fi 


o 

w 

o 


Compiler Tables 

Reference Tables 
DIMENSION , . 

■ common >’ 

Equivalence >• . \ ' ■ •'V'vp^'.p 

Assignment Tables ’ ’ 

Explicit Data Names (single and double) 

Implicit Data Names (single and double)* 

• EFN • . 

Transfer vector 

« i i * : 

Literals (single and double) 

% 

Subscript Temporaries (single and double) 


Counts 


Algebra Temporaries(singLe and 'double) 
Program points py'. 

t ,• .V, \ .« r ’ *•’ .vV •* • V # 

Local Work Tables 

ASF Dummy ; .' V' v 




.*. . \ \:>v •• u 

*;■' ;v /.'• ■ ■ • 


\y *;>. 


' > 
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Table formats 


EFN TABLE 


EFN 

* 



U Definition 
# 


Definition 

Seauence 

bbl71 

bbb73 

bl029 

bbbbl 

. ■ * *• 

’ 

! 

1 


1 





30 bits , spare 


spare 


(1 bit used 
if last in 
the range 
of a . DO) 



Implicit DATA TABLE 


NAME 

Type 

Relative Address 

J . .. 

* 

I • 


Assigned as 

- k. 

I 


encountered in 

TEMPI 

R 


Phase IB or as 

STEM 

C 


generated in 

BOOLE 

Li 


PhaseIC. 


spare bits q 7 

. . : 7/18/63 













(Phase IB)' 


Program Point Table 

(Phase IC-Scan l) (Phase IIB) (Phase IC-Scan 8) 
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. *' - JbT'2^ r ( •_ r > *».;. 




Processing External Functions 
(see page C 8) 

Compiler— 

Defining Program flags BARB and BETTY in transfer vector as external^) 
. Transmitting Program flags DUMMY as a dummy(6). • 

Loader 

Does not collect subprograms 

Collects DORIS, BETTY, BARB 


Will reject (as diagnostic) OVERLAY card with name corresponding to 
•(g) flagged routine. > 
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Literal Processing 


,£« V s 


, Ji 


■: \ 


A. In the following cases* no "literal pool 1 ' is established, and redundancy 


,'.y J’ v'-J j^y 1 .' 


is not recognized: ■ 

■ / i' . 1 ' •, V,. i .. ' ‘ 

1. Data in DATA statements 

, i *• » ] ' , t*. . */_ - /; ■ 

• • ' ■ 2. FORMATS ' '■■■’ 

« -• ■- ■ . . v * 

3. Hollerith Arguments of CALLs 

t * * * • • • ‘ . i l' * 

. - . * * V « '* ti * \ 4 

B. Two literal pools will be established for Implicit Single Data and p 
for Implicit Double. Data. . . ' : V "■ 


v'. v * 


•u 


O’.vV. 

■Jr,*/. :• 


v?.-; 



Exceptions: • y ‘'.’■■'Zy "d .*• 

TRUE and FALSE are standard. . . • , [• " V: "-:,-T- v 

Integer implicit variables L 32768 are placed in the NAME table as ’ y ) '/• 















Basic Definitions 


A. File is composed of Sequences . 

.The internal file sequences are successively in Format A, Z and B. 
The external file sequences are always in Format Z 
A sequence is a homogeneous contiguous string of information which is 
processed similarly. 

The original assignment of sequence numbers limits the program 
string to 204'7 sequences. ’ 0 : 

. \ % • • 
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Classes of Formats.. ■* ! . 

1. AFormat. . ^ 

Initial form of internal file. Created by Phase IB to hold information from 
• the source program. 

2. Z - Format. ’ ' ’• v . : • 

Binary format with proto-addresses. Exists at the end of Phase I.. 

3. B - Format. , ’ 

Binary format with real addresses. Created by Phase II from Z - format. \ 


4. S - Format 


i - ■ 

> ’•( 













FORMAT Z 












Forma ts of A, Z, B Seq uences 

(1) All have headers, content words ' 

(2) RQWs are present in all A sequences 

(3) RQWs are present in Z sequences: 

J,K, L (prologue, program string, A.S. F. routines) 
and in B sequences: 

J (program string) - 

(4) RQWs precede in B format, follow in A and Z 

(5) Content words have a set structure for each type Of A format. 
Other formats contain unstructured contents. 

(6) The minor subsequence field of the A format header is used for 
information bits "(branch, fix left, etc. 


in A format. 
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fc & tf w h D > ^ x jm- n 


.Header Type Codes 


(all sequence formats) 


DO 

SSV(single) . 
SSV(double) . 


Title 

Counts 

Common Names 
•Transfer Vector 
Explicit Unique 
Implicit Unique,, 
Implicit Unique (part 2) 
Formats 

Hollerith Arguments 
Prologue 
Program String 
ASF routines 
Common 1 
.Common 2 
Common 3 
Common 4 
Common 5 
Common 6 


Preface 


Transfer Vector 
Unique Data 


Program String 


Common 1 
Common 2 
Common 3 
Common 4 
Common 5 
Common 6 


List Element 
Assignment 
Call Argument 
Arithmetic IF 
Logical IF 
ASF Definition 


* Used for Sorting in Phase II -A 

** assignment S for. program string sequences containing an 

undefined EFN. ‘ <0. NT * 

■ _ , ■ ’ . • S ' (r~0 - T©. "'Z 4 - 2. y. ■' 
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Proto-address/RQW Summary 

A/D Mnemonic 


Locations in Program 


Sequence Number (defined) A 

(undefined) ' t • A 

Intra-sequence + A ■ 

Intra-sequence - •• . . A 

Program Point (Dummy) A 

Program Point (Subscripted Variable) . \ A 

Program Point (Dimensioned Dummy) A 

Program Point (True/False) • A 

Locations of Explicit Data 
Explicit Data A/D 

Unique Data A/D 

Common Data 1-6 A/D 

Locations of,Implicit Data 
Implicit Single Data* A/D 

Implicit Double Variables' A/D 

Constants in Single Data Literal Pool ” A/D 

Constants in Double Data Literal Pool ' A/D 

Algebra Temporaries-single A/D 

Algebra Temporaries-double A/D 

Arithmetic statement temporaries(all double) A/D 
Subscript Calculation Temporaries A/D 

Locations of Transfer Vector 
Transfer Vector A 

RQW (indicative only) 

Function-open . A/D 

-defined • A/D 

-subprogram A/D 

Symbol-operator A/D 

Symbol-delimiter A/D 

NuU /O a A/D 

Proto-addresses nnly appear in program string, p: 


A/D 

A/D 

A/D 

A/D 

A/D 

A/D 


DSN. 

USN. 

STP 

STN 

PPD 

PPS 

PDD 

PPL 


EXD 

UED 

CD1 to CD6 


ISD 

IDD 

SDC 

DDC 

ATS 

ATD 

AST 

SCT 


TRV 


Fortran IV Applicable 
Equivalent Formats 
lalso Bln ^ 


n Anl- 
nZn 
*+ 


InAA 


ASZ 

ASZ 

Z 

Z 

ASZ 

ASZ 

ASZ 


actual 


ASZ B, 


name 


ASZ 


actual name ASZ 
actual name ASZ 
= n ASZ 

= nD ASZ 

= n SZ 

= nD SZ 

PP.n • SZ . 


ictual name 


Proto- 


. A/D OPF 
• A/D ASF . 

am - A/D SPF 

A/D OPR 
A/D DEL 
a A/D NUL 

pturvu-'C 'o * 

•nly appear in program string, prologue or ASF 


B 

, format 


definitions. 
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Data Type:' A-Format, Type T 

Purpose: To hold data from statements ot the form a DO bC s 

m l' m 2' m 3* w ^ere a an d b are sequence numbers, 

. ' C is a fixed point variable; and are fixed 

point constants or variables, m, may be omitted.in' 

o / 

, which case computations involving it use the constant 

value one. . 








A Format, Type T 

FORMAT: . ' 

Header 
Field 
Contents 
Bits 

Content W ords 

Field 
Contents 
Bits 

Field 
Contents 

Field 
Contents 


Field 

Bits 

Contents 

A ; ' 

;V 1-6 

Header type code "T" 

. B.. ■ ’ , 

■\ 7-21 

Sequence number for location of DO 

C 

22 ; V- 

1 to indicate FIXLEFT entry for C 

D 

23-26 

Minor subsequence number 

. E /y“V' 

27-36 

Number of content words (2 or 3) 

F 'V s . 

1-3 

Not used 

‘ G • . 

: ' -4-18 • 

Sequence number of range of DO. 

•v: 'ROW:' USN or DSN ' 
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F 

G 

H 

I 


b 


C 

1 3 

4 18 

19 21 

22 36 


J ■ 

! K 

L V ' M ■ 


| m i 

j m 2 


N 

P 

Q 

R 




null 


A 

B 

c 

D 

E 

T 

a 

1 



1 6 

;7 . 21 

22 

23 ’ 26 

27 36 






A- Format, Type T 

Field Bits Contents . . 

H , 19-21 '• •Not used . ' ■ • 

I ' 22-36 . Control Variable. RQW: EXD, ISD or ARG .. 

■J 1-3 " Not used ••• ; ’ 

K ' . • 4-18 Initial value of control variable. • ' 

•RQW: EXC> SDC, ISD, or ARG : '• 

,L 19-21 . . Not used . _ . / , ' 

M .. 22-36 \ / Final value of control variable. 

• J RQW: EXD, SDC, ISD, or ARG ’ ■•’.''•; 

' N 1-3 f .Not used > 

P . 4-18 Increment of control variable. • 

RQW: EXD, SDC, ISD, or ARG. • 

If m is not present in the statement,. the third content.,; 

• word is not present in the A-Forma*. , ’ • : 

Q • ; 19-21 , . Not used. ' •- 

R 22-36 Not used. RQW: NUL C-‘ 















. Data Type: A-Format, Type U or V 

Purpose: ... To hold data from subscripted variables of the form 
A ( * s x + 'tj, A (e x * b 1 + £^;, e 2 * s 2 + y, or 

A (e x * s + f r e 2 * s 2 + f g , e 3 * Sg + f ) ; where 
A is the name of a dimensioned variable, s^ are fixed 
point variables, e^ and f, are fixed point constants. 



# 
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Contents 


A-Format. Type U or V 


Field 

Bits 

4 . ,.■ * 

Contents . 

A 

1-6 

Header type code U or V . 

B 

7-21.. • ■ ' 

’ t ' . •• t* . .*■ . < 

Sequence number for location of subscripted ' 

Variable 

C 

22-26 ./ • •' : : ■ 

Minor subsequence number 

D 

27-36 • ' - /'; 

Number of content words (1 to 6) 

E 


1 if e^ = 1, f^ - 0 and the content word con¬ 
taining fields A K-N is deleted. O otherwise. V v- 

F ' 

2-3 V-V; 

Not used 

G 

4-18 ; . ■;/ V ; ; 

Dimensioned variable. RQW: EXD or ARG. •' y fA , 

•H 


Not used : 

I 

20-21 

Number of dimensions (1, 2 or 3). . 

J ' 

.22-36 .. /\ 

Subscript variable of first dimension . r • y 

RQW: EXD, ISD, ARG or NUL. ,• Ay . Ay 

K . 


Not used . ' y ■< : Ay yv '• " 

L 

4-i8 A; 

' Multiplier of first dimension. . A. A’ : ' 

RQW: SDC or NUL 

‘ M 

.19-21 .' • - . /y A 

.• Not used • '• " • V "... 

• N . • 

22-36 / 

■ Addend of first dimension. 

RQW: SDC or NUL ; 

P- • 

\ ' 1 

1 if e^ = 1, fg = 0 and the content word con¬ 
taining fields U-X is deleted. O otherwise. . 

Q 

• ' 2-3 "‘W 

Not used ' ' . : .• ■ '• : AAAy.'AAA!. " A; 

R.y 

' 4-18 : 

A Size of first dimension y ‘ 

. RQW: ARG or ISD 

s 

19-21.. A'ACVA: ; 

y. Not used 

' T 

22-36 A-v 

. Subscript variable of second dimension 

U 

h-» 

1 

CO 

. Not used • 

V . 

4-18 yy : 

. Multiplier of second dimension.' .'• 

w. 

'19-21 

’ Not used ■ • y A". 

X 

.'22-36 

Subscript variable of second dimension. . ' 

Y 


life s 1, f„ - 0 and the content word containing 
fields 3 AD - AG is deleted. . 0 otherwise. ' 

Z 

2-3 . ’A -A.A;..; aA 

.'■'Not used 1 . V AA'AA A."- A 

AA . 

.' 4-18 A AA/VAA:; 

’ Size of second dimension 

AB 

i9-2i ■ \ . aaa 

. Not used.'. . '. ■ .. AA'A.1 .vAAAAA'V': AA 
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Sample formats (A) 

. Content Words 

I 

I 

LISTS and EXPRESSIONS • 

(The expressions exlude subscripted variables and functions which 
presumably have been placed" in separate sequences with their 20 bit 
designation placed in the "upper".) • 


A Sequence 

6 

Subsequence for B (I) 


. null 

( . 

C (pa) 


D (pa) 

❖ 

E (pa) 

) 

A (pa) 

s 


W 

Sequence 

7 

A (pa) 

9 


B (pa) 

9 

■ § 

null 

' * 

( 


subsequence for C (I) 

9 


I (pa) 

■ = 


1 (constant) 

9 


12 (constant) 

) 



v- 

A = B (I) / (C + D * E) 


READ (3,4) A, B, (C(I), 1=1, 12) 
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Sample formats (A) 
Content Words 


LISTS and EXPRESSIONS 

(The expressions exlude subscripted variables and functions which 
presumably have been placed in separate sequences with their 20 bit 
designation placed in the "upper".) • 
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, 12) 
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S FORMAT *-— . 

This is a word format and not a sequence format. It is used during 
the expression manipulating scans of Phase III C. 

RQW Mode flag pa or symbol 


(1) The RQW and pa portion are derived from format A. 
f &) S f format serves -ss aa' ': L ariag^ ' ffrndllylhesiihigtm frarmdt2Z.. 

(3) The Mode field indicates the hierarchical power of the symbol, when 
it is an operator. 

Logical IF format‘example. 


internal 


J- Sequence 13 

3 

false sequence no. 

null 

(15) 


A 

.GR. 

B 

' null 


CALL format example 


V’.IF (A.GR.B), ASSIGN 12 TO N 

'{■ ._ ^ _ 


ZI Sequence 14 




































Program Points 


These are locations within sequences that are referenced: 

(1) In subscript computation 

* l ; 

' (2) In logical expressions ("true 1 * and "false" entries) 

(3) In argument insertion by the prologue of a subprogram, 

• t , ’ 

A table is started in Phase IB and is built upon and modified in the Phase IC.' 
Finally,, Phase IIB uses this table in assigning addresses. 

The format of the table is shown on page C 7.1. 
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Internal File Manipulating Routine 

Communication Region 

. CONTENT WDS 
RQW WDS 
TYPE 
LENGTH 
SEQ. NO. 


CODE 
000 AND 
001 OR 
010 NOT 
111 Separation 


IMF Routine Control Region 


(format, internal/external, 
forward/backward) 
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HEADER 

■a 

s-ss 

mSKm 

MODALS 

z 

■nm 

B 

LOC. LOGIC 

00000 

mm 

LGTH; LOGIC 1 

00000 

1 

jjuj i 


t 

A ' 


Type 

' 

C 

Type 


0 

Type 



Type 


D 

Type | 


E 


l 

000000 1 

! 

LOC 

00000 

LOC 

T 

000000 

000000 i 

^Lgth 

s s 

. 00000 


> Header 


Logic Packet 


iii lunuuiiiii iii.mip* 















Internal File Manipulating Routine 


TSX ; BUILD, 4 

TSX INSERT, 4 
. TSX. DELETE, 4 
TSX CHGTYP, 4 


User fills communication region and 
then calls IMF Routine 


TSX 

PZE 

TSX 


SCAN, 4 

DOC LOGIC,, LGTH LOGIC 
RESCAN/4 


IMF Routine fills communication 
routine 


The routine will also sort, merge, read and write. 
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Internal File Manipulating Methods 

A. . Sequencing by number (logical) 

1. Original numbers - -11 bits + 4 zeros 

2. Insert n umbers (between sequences) the 4 bits are used 

3. Dividing numbers- -The 5 subsequence bits 

♦ . • ¥ 

B. Sequencing by linking (physical) 

1. Actual physical exchange is possible 

2. Special link-headers can be used linking to an addendum file 

4 

3. Special delete headers can be used 

4. A sequence table can be maintained and rearranged. Accessing 
will be .by indirectly addressing this table. 
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expression 


packets 
(A format) 



(A format) 
all DO 
and sub¬ 
script 
packets 


sequences 
already 
processed 
Z format 



expression 
and list 
(A format) 



( A format) 
all DO and 
subscript 
packets 


list and 
expression 
sequences 


Z format 



sequences 
already 
in Z format 



DO and 

subscript 

packets 


Phase IB . 


! Phase IC 

after half the ex¬ 
pressions have 
been processed 


Phase IC 

after the nests 
in half the program 
have been processed 
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RQW Manipulation 


For each format, for the program string, arithmetic statement functions 
and open functions, there is an associated "Relocation Quarter-Word" of 
9 bits (RQW). 

The interpretation of the RQW varies from format to format but its connection 
to the associated full word does not. 

Thus, the internal file manipulating routine must also build, scan, etc. 
with these words connected. 
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FTC A ~ Phase I 


Initialize; Process nori-executable statements including FORMATS. 
Process executable statements and Formats to internal or external 
file till END statement. 

Process internal file (11 Scans!) • 



Internal file and Tables remain in core. 
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Phase I, - Narrative Description 


A. . After suitable initialization, the specification statements are read , 

• in and.processed to tables (Explicit Data). Where, code is generated 

• . (subprogram statements, DATA), It is written out on the external 
, '■ file. The Explicit Data allocation is made. 

B. Following processing above, the remainder of the source program • 
is handled. A specification statement is now a diagnostic. The 

• table building continues (EFN, Implicit Data, etc.); FORMATS and 
many types of statements produce sequences for the external file. 

The remainder build sequences in the internal file in FORMAT A. 

C; • Next, the internal file processor is brought in and the I. F. converted 

to code sequences and optimized in (11 Scans). The Implicit Data 
Table is converted to code sequences for the external file 


Diagnostics are issued throughout as they are encountered,. 

At the end of the Phase, tables and the internal file remain in memory. The 
external file of sequences is rewound. . 
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Phase I 


• '• _ Internal File _ • 

Statements containing expressions 
(including CALL'argument, IF 
(paxfcJL), Arithmetic Statement 

Function definitions and assignment 

* 

statements). . 




External File 


.All others 




‘ j" 
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Phase I (General) 



External File Order r i 

‘ t ■ - '.‘ *1 . 

(Phase IA) Explicit Data and Reserve's^ i 

. .. FORMATS • 3 any order 

• data. v, 

(Phase IB) Executable sequences ' \ 

formats ;\v\ 










' N 


; 




Processing of Functions in Expressions : V 

Phase IB—identifies functions, determines the type and replaces them 
with pas and RQWs. V‘ y -:}\ 

Phase IC—Scan 2--Converts to Format S. 


Phase IC—Scan 3—Produces proper outputs. Examples: 

: A « FXJNCT(J+K, B) ; 

• ' J+K—iT. 


y , V., 

,* ' ' . • 


' FUNCT (T 1 ,B)—>A 


A ■ FUN (FUNCT(J+K).B); ; i 
■ J + K—xT_ • •• 

1 ' , *> V* !.;*v ■ 


FUNCT (T , B)-> T 2 

FUN (T 2 )-»A 


/,A, 


. Phase IC—Scan 8-- Produces proper Z format according to type (open,; yV 
\ ASF, sub-program).-, y 




&■. •,; • 


Av . y , .\ v . r . 

> *V' V- ; • < 






.5 •. 

V.‘V • ’ r . : I 


A , v 




I: 






o 


V; V- 


- - 


.’A >.V 


■i ’»• i . *> i , *v !.. 




• V^Y**;***'- Y 


’-T *•> • ; 


v.y 

;V aX’- -. 


V A'-; ' 
: • \* ’ * 


• -V •; •*>•>-;; X: . ; ■* v .T;-.. V.V-A * ; f ? y..-/ $ A ii; ? a - ^ ;«: j-v-v;*• y 

. i/ ■ ; ;*•*i\ • '■ * .;*r * f‘* } *' v; ‘'ViirV;*.' - >f v* ^ *?V v* vilr‘j A * • ^ ]If•; • ; •/'v v ‘‘ ' * *' *; • \ 

«.* t ‘_ ^ ' ■'/,* , -• • ’•»'*. ■' *■" 

•'- .'^-V V;‘>- 'V-*( V ** 

i ' ;Vv*;,f,:i V '--- 5 ;■ '}.{Kky*‘. V! 'if a;W : ? if 

■ •XiV-.l Av" -v- ^ 

■ ■ ;; y.;- 1 '-' - . ’ ■< z . • • 

* ; Y -• '■ -J • V -A >'• cv , 4 ; 4 ^ V-‘ Vi: *■ f ,‘r • . . 

'• - ’ .‘. f ^'-v 1/'"Vc> ‘V-r; * * l -Vv, •'•■ 

•■•••- ; 'f •; *•••: -V t :•• ' - Vr*>T- *v>, ; -r*•; ■. • ■ 

• ’' . r .“ ^ ; v; : ,N.:. "■•• • • • ! : • ; V ■ 

V‘.., (y'v :'>• .-f-•YvV^ : N , - ; v 1 '-* •’ 
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Parametrizing Subprograms 


(i 


Whenever a name is a’dummy, a program point is generated. It is 


placed in the program point table with the argument number. (Phase IB) ', 


In Phase IC - Scan 8, the proto-address of the instruction to be filled is 
placed in the program point taible (sequence number in Z format and in- ■; i ; ■' 
crement). ? “c/AV 


‘ ;v : , ■;. 


The prologue is created in Phase IC Scan 11. The sequence numbering , 
is such that PhasellA will sort it ahead of the program string so that it is 
.executed first.' ' ..V' A: ■ ■ 


•A 


Exception: If a dimensioned variable is also a dummy, special treatment; 


' •* , > ' 


is required. See page 


r" 






■ A .•' vy*.-- 

, ;*•'» '"■•‘I ' - • .V ' .•} ./ v•..,>'•* v 

AAA D- AvA,-A 

.v. • >.■ f. * »•, 

,i ’I*';. *'C*.y i - f |T»» 










■ A'-v^v 










r ;‘V V • 




'- t 




- 4 ; 


• . 


.■ ?1 ■ CV• ‘’"JY ' 


A • ■’ - ',V r "; v 1 -’ " 


V*W‘ \ « ; 




vVf *C ! 




i 








;-.\v •; ./ 7.*) y?;-;'. * ;•;' a * ,;?<•’ 


* j/ r '’.'M-V * 






; v*.X;*'.vV'-ir ^ v "- 
'■'AA./r/>/;>*'' 


*• ’>i‘.;? »v ’^Sv ... 






4 -,;l; 


l\' y ..t-V -T'-v 

1 (# V, • «* .. -■ - 


v'V f.*<‘*‘* »%•<* ‘ v W >c V 

^ - -.A: ; 

hV,:HK>', *ljj ^V.v 




m 




■ ■ • * *. ■ 

'.'t 




7 . ‘V‘ V 


* ', / ? 4 


•. v * .t - 


v : « 








;»V. 


' : ’,«• • v ;Vv'5^ ; :)• •’•'< A ^(?if : •/*.‘• 

:. ■%, |-i>' *1 ■ ■ • r* • i00® ’it -l-v fr;. ?j f ■ V ■. 

' • "> /' -> I < •V‘ s ■ ti-V' 1 . .v : V- ^ *> i - - - - - - 

! , '•' . \ \ h'i? • ■ 

';• .-.i-; •'•• .•. A' ••••. f 
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Subroutine: 


CHS CAN 


hirpose: 


1. Eliminate blanks (leading, embedded j«®trailing) 

' 2. Detect illegal characters ’ : 

• • • 

3, Detect equal sign '• 

• 4, Detect presence of parentheses 

1 4 

5..Detect any imbalance of parentheses (indicates 
whether left or right parentheses are the cause 
. of imbalance} . '. ' • . 


Entry parameters: • 


1 ' 


Exit Conditions: 


1. Origin of unpacked statement 
.2. Origin for packed statement 

l.i Return to 3,4 

• * ■ _ 

2. Index reg 1 will contain 
0 - no errors 

1 - unequal number of paren. 

2 - illegal character 

3 - more than one equal sign , 

3. • If IRl * 1 


.PAREN = + x ^x number of extra left paren) ' 
= - x -{jic number of extra right paren^ 


4.. If IRl s 3 

EQS W = number of equal sign .. 
" ’ if ^ 3 always an error . 

" ■ if 2-3 can be I/O hst • , 

‘if 1 can be I/O 

' . . . . DO . 

■ assignment 


% 



85 + 


Table 

Program 
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Blank 

Parenthesis 
Illegal , 

Equal sign 
End charac. (77) 
Normal (not any above)' 



Word of blanks • 

Epilogue (after ocur. of end ‘ch) for 
each charac. that must be lef|" *' 
justified in Pack area. _ 

Equal sign switch ( once only) , 

Paren switch (once only) 

Illeg switch (once only) * 

•Return Transfer (once only) 


-'.v* 
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Sequence Number Assignment 


Phase IB 


(Assumption: Arithmetic statement function definitions have their own 
sequence number rules set by Phase LA. The type code is L.) 


A. The following always start a sequence: 

(1) A numbered statement 

(2) The statement following a logical IF 

B. Successive statements destined for the same, file with the same 

¥ 

type code in the Header do 'not start a sequence; e. g.: 

END FILE 3> ■ 


REWIND 3 


1 sequence 


J = K V 

A = B + Cf i sequence 
D = X (5) J 


ASSIGN 27 to J 
GO TO 30 


1 sequence 



C. The following statements always generate more than one sequence: 

Logical IF 

IO statements with lists 
CALL statements with arguments 

D. Original sequence assignments are for the high order 11 bits in the 
sequence field. 

Subscript variable packets receive subsequence numbers. 

Implicit DO packets (from a list element) receive subsequence numbers. 

E. The "statement" immediately following the logical IF receives a sequence 

number (or numbers). -v 

See A formats for internal file . 

See Z formats for external file 
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Phase IB 


Initial Assignment of Sequence Number to DO Endings 


Since the last statement in the range of a DO may itself be assigned, 
several sequence numbers (e. g. —a logical IF or an 1-0 list), a 
special entry in the EFN table must be made. 


Given: 


20 


DO 20. 1=1, 10 

GO*TO*"''20 % 


READ (3, 12) A, B, C, D, E (I) 


The EFN 20 receives two entreies in'the EFN table. The flag used 
to identify a DO end EFN distinguishes the entries. 


EFN _ UP # _ DS# _ Flag 


20 

6 

77 

1 

20 

9 ' ] 

1 

n . 

* A 
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RUN IC 


General Plan 

Function 

fill in UD#; eliminate redundant SS 
calculation 

convert to S format 

generate algebra via Z stacks 

eliminate redundant subexpressions 

convert, inserting open functions, 
powers, able and complex 

eliminate redundant load and stores, 
optimize AC/MQ 

eliminate redundant temporaries 

specialize coding 

DO nest analysis ; 
code generation 


. K 2 
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SCAN 

format 

Type 

Range 

. 1 

A 

D,S,2 . 

- 

file 

2'' 

A—5>S '■ 

expressions 

sequence 

3 

S 

1 1 

II 

4 

s 

it 

It 

5 

s —> z 

it 

II 

• 

S 

Z 

H 

II 

7 

1 

. • ' i 

z 

n 

II 

> 

8- 

z 

statement 

II 

* 


lists 


9 

A . 

D,S,2 

file 

10 

| a—>Z . 

D # S # 2 

nest 

11 

z 

s,z 

expression 









vs#***-'. * fc* A am* jft*. 


Phase IC . . 

i — 1111 1 “ ■■■■ » 

Sean 1 ’ ■ .. X 

Examine all T sequences replacing the undefined sequence numbers for 
beta with defined sequence numbers. 

Examine all contiguous U and V packets for identical subscript calculations 
where found; delete one and make suitable change in the expression or 

list packets that reference it. All of the above must have the same sequence 
number.' ''. •. , . • • * • • ' . '■* • .• 
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Phase IC 


Scan 2 

Move,, sequence by sequence, all packets containing expressions. 
Convert to S Format— ? 

Pack (and modify) EQW in S word 
Add hierarchical power level if operator . 
type code if operand 

delimiter code if delimiter 
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PhaseIC 

• • Scan 3 

Words in S format are taken from a sequence in work area 1 and 
transferred to work area 2 with intermediate residence in the main 

stack. There is also a Control Stack. The work area 1 contains 

. *v j__ 

the words in reverse order, e. g. ( Y «* A + B J Work 1 B 

'' ' + 

. ■ A 

Y ) 

Temporaries (in S format) are created in the process, legal mode 
combinations checked and decisions regarding exponentiation made. 
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PhaseIC 
Scan 3 (cont'd) 

• ‘ 

The basic algorithm: - 

Word is operand—push down to Main Stack. 

Word is operator—not inside a function argument 

Lower than top of Control Stack--pop up both stacks to first operator 
of higher value. 

Equal or higher-push down to both stacks. 

Word is operator—inside a function argument and lower than top of 
Control Stack—pop up both stacks to first" comma or right parenthesis. 
Word is delimiter— 

")" - push down both 
, in a function - push down both 
= - pop up both to bottom of stack 
( - pop up to first right parenthesis 
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PhaseIC 
Scan 3 cont'd 

Whenever the first symbol in a packet is commutative and the 
second operand is a temporary cell, .• exchange the first with 

t * .. • 

the second. 
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Phase IC 


Scan 4 

Redundant subexpressions are identified by examining all generated packets. 
First, test for equivalent number of entries, then for equivalent contents. 

If all operands (except the last) are temporaries, give them a special 
analysis. If only the last operand is a temporary and, otherwise, equality 
exists, the elimination condition exists. 

To eliminate, keep.the first encountered and store into the last (output) 
operand of all other (eliminated) packets." i . 

There may be more than two of the same subexpressions and there may 
be more than one subexpression with redundant appearances. 
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Phase IC 
Scan 5 


Conversion To Z Format 

The S format words in WORK 2 are now converted to Z format. Here 
the specific 7090 or 7094 code is originated. Double precision and 
exponentiation are treated now. and open functions parametrized and 
inserted. 
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• * :mtAm * 


■'X- • , ' " 7v " r l_‘ '■*»*•**■ -■ 


* ' _ • • - PhaseIC '•_. 

. Scan 5 • • , 

* < ■ * t * 

Converting Logical Expressions to pode " " 

’ ■ S format to _ • Z format ’ 

Assumptions: — ” 

„ > "i 

; l) Phase IB identified . NOT. and associated it with the logical 1 variable. 

Multiple . NOT. s must also be processed. 

T = .NOT. A .OR. B.' The. NOT. is associated with A 

T = .NOT. .NOT. A ' The .NOT. s are dropped 

2) Phase IC Scan 3 makes no special provision for logical processing. 

Actions: — For every elements- ■ \ 

a) Normal form ' « NZT element T. ./¥ 7 

.; , ((TRA F (false exit) ' 

b) When preceded by i OR. ' ZET element ■ ~7~ A.•y^'B 

• ' • . • ,;/ TRA T (true exit) . r . 

•. . ■ . . .. . . • ■ . •• / nf "S 

c) Negated reverse the first op-code of the 

. j ' • corresponding pair 

d) IF (only 1 element) • . ' CAL element • " ' 

’ . ; V;.. '' ;; TZE f 

e) . Constants : • '. TRUE. = 1 ' , , . 

• . FALSE.-.= 0. 

f) Logical IF (ending) . * F. TRA false sequence 

• . . \ true sequence follows 

g) Relational Operat ors • 

cla Arith * 7 71- ! • -.V fv -7 ' 

/ ' Expression!, . . 

SUB • Anth. .... ’ : ’• . 

. . Expression 2 •• • ; ■ 

• • . Suffix __'■ 


or 


CLS 


Arith. • 
Expression 1 


ADD 


Arith. 

Expression 2 


Suffix 


reversed form 
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Suffix 


.GE. 

' . TMI 

F. *• 

Q.G*,- V 

T + ' 

.LE. ' J " — 

.. TPL 

.F.; 

4 ■ cc. 5 ~ 

• r 

.GT. 

TZE 

. F- 

*1 3 ■ , 

T* > 

# 

TMI 

F- • 

. / 

.LT. 

TZE. 

F- 



■ 

, tpl- 

F 


. NE. 

TZE 

F 



.EQ. ' 

’ TNZ 

F 


’ ’ ;■ 


h) Logical Arithmetic Statement Function (ending) 

T. ’ CAL. * 

_ TRA 9999 ZZ 

F. • y ' ZAC 

9999 ZZ AXT .**,-4. 

TRA 1,4 

i) Relation .AND. Relation 


Relation coding with branch to False 
Relation coding with branch to False . 

j) . Relation . OR. Relation , . 

Relation coding with branches changed to True 
Relation coding with branch to False. 

k) ’Definition of an "opposite exit": 

. • The inverse of the address of the last branch in the coding 
for a subexpression. . . 

. 1) Processing logical temporaries: A op B —»Temp. 

(i) The opposite exits go to Temp instead of T, or F, 

(ii) Temp; is entered in the program point table, 
m) Processing logical temporaries Temp.-op . C-~>D: 

The temp, is simply eliminated. 


n) Processing logical temporaries' Temp^op Temp^ 
•, ■ -to be specified • ■ •' ' ■ 


D: 
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PhaseIC 
Scan 6 

Optimization ' 

Here the sequence under development is scanned to eliminate superfluous 
loads and stores and to arrange AC/MQ optimization. 

The algorithms are to be stated later. 
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PhaseIC 


Scan 7 

Elimination of Redundant Temporaries 

Here the sequence is scanned to eliminate the assignment of superfluous 
temporary cells. ; 

The algorithm is to be stated later. 
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PhaseIC 
Scan 8 



Here the specific needs of— 

♦ 

CALL argument 
IF (arithmetic) 

IF (logical) 

assignment statements 
arithmetic statement function definitions 
as well as of elements in a list are processed. 


At the conclusion of this scan, the header is restored, the new count 
inserted and, as a Z format sequence 4hut-^i%hH:henortgln'al^^ormafH:ype— 
cp sifiX, it is placed in the internal file replacing the sequence used in S can 2 
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Phase IC 


Scan 10 


Produce Z format coding for the DO start and DO end. If m^, m ^ or 
m 3 is symbolic appropriate coding must be generated. 

Sequencing DO commands. Beginning of DO. Sequence number a. 
Non-repeating sequences get subsequence numbers A - G. Repeating 
sequences get subsequence numbers H - P. End of DO. Sequence . 
number b.. All sequences get subsequence number P so they follow any 
sequences generated for statement b> (by algebra, etc.). Minor subr 
sequence numbers 0-15 are assigned if several DO's end at the same 
Statement. 
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• Phase IC 
* " Scan 10 

3 , Setting up DO parameters. 


a DO 

b C — # nig. 

a) Constant parameters. 

aA 

AXC m x , X(C) 

" V 

STZ C 


•. FSCA 

c. 

X(C) 

SXA 

bPO; 

• X(C) 


bH)| 

AXT 


_.X(C) J 


_!___ _____ ‘ ___ _ 

bPL 

TXI 

TXH 

*+ 1, 

aH, 

X(C). rm 3 
X(C), -m 2 -i 




Nan-repeating 

Repeating 
(If save needed) 


(If needed). 


K2.12. 2 



















Phase IC 
Scan 10 

"b) Variable parameters 


LXC 

m x> 

X(C) 

STZ 

C 



LXC 

m 3 , 4 

SXD . 

bPl, 4 

LXC 

m 2 , 4 

TX1 

*+1, 4, -1 

SXD 

bPl + 1, 4 


FSCA 

c. 

X(C) 

SXA 

bPO, 

X(C) 


bPO AXT **, X(C) 


TXX 

.* + !> 

X(C), ** 

TXH 

—aAj 

X(C), ** 


X(C) is index register assigned to control variable C, 
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PhaseIC 

;; Scan 10 • 

4. Saves and restores are inserted in the outer DO's when insufficient index ■ 

* t 

registers are available. The scheme is that lower levels have precedence . 
over higher levels so that inner DO's will not have save and restore 
. commands. • 

Let L = Highest level of a completely nested set .of DO's. 
n *» Number of index registers available. 

* ' * • ' y * ' , * * 

. Then DO's with level L, L-l,....., L-n+1 do not require saving of 
index registers. DO's with level L-n, L-n-1, ..., 1 require saving- 
index registers. 

All completely nested sets of DO's in a nest must be examined. 

5. A-Formats of type T, U and V are processed. Addresses are 
computed for subscripted variables. 

General form of subscripted variable: 

A{ei*Si+fi) i=l, ...n, 1 = n ='3 . / 

; Address is A +2 f a1 - ( e i Sj+ f. -l)g.'; 

Sg ~ ^ £3 ~ d i d 2 ; 

or AH}+5“^ e.g.S. 

where h “2?!, (f.* r X) g. 

i“* x . i, • v X. 

• ' ; .1;'^ K2.12.4 
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Phase IC 
Scan 10 


6. Address computation of subscripted variable not in a DO, 
6.1 n ■ i. Address of A(e^ ’i'Sj^ + f^) is' 


A 

+ h 

+ ®1 S 1 ' 

h- = 


a. 

e l> 

1 

* 


• . 

LDQ 

V 




VLM 

e l' 15 




;PAX 

4 




; TX1 

* + 1, 4 

A + h 


SXA 

Z, 4 



*■:' z. 

OP 




b. 

e l = 

1 



* : , . 

LXA 

S 1 ' 4 

• . 



TX1 

*+l, 4/ 

A+h 



SXA 

Z/ 4- 



./ . / ■ 





z 

OP 



t 
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■ Phase IC ... 

Scan 10 

Method of addressing subscripted variables not in a DO ne st. 

Index registers are used for subscripted variables in a sequence. 

When all available index registers are used, addresses are placed 

directly, in command operands for remaining subscripted variables. 

Subscripted variables in DO nests. 

. * ■ 

a. When a subscript is. controlled by a DO control variable, the 
portion of the address due to the subscript is computed at the 
location of the DO. 

b. When a subscript is not controlled by a DO control variable (relative 
constant case) the portion of the address due to the subscript is 
computed at the non-repeating portion of the outermost DO of the nest. 

c. Method of addressing. Index registers are used to address sub¬ 
scripted variables under the following conditions. 

i) A subscript variable is controlled by a DO. 

ii) The subscripted variable is contained in the controlling DO. 

iii) The assigned index register does not have to be saved and 
restored. 
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Phase IC 
• Scan 11 

Generates Prologue ' ! 

Converts Implicit tables to code in Z format and places them in 
'internal file. . \; •• V.-.'' 



■■ ■ ■■ f 4 . . . ' k 2.13 
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Indexing 


Assignment of actual index registers must be delayed as long as 
possible. , 


Index register usage for other than DO's and SSV must be avoided 
if possible. « 

' e. g ; computed GO TO’, Assign 


Arbitrary "saves" and "restores" must be avoided. 


Double precision and complex data must be indexed by doubling the 
normal increment. 
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Double Word Activities 
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Optimization of Object Code 


Types to Consider 


(1) Logic Transfers 

(2) Pulling out from loops (e.g. Locating indexing return 

point as d£ep in inner loop as 
possible) 

(3) - Saving partial results (inter-statement) 

(4) Saving partial results'(intra-statement) 

(AC-MQ) • • 

(•5) Redundant index loading within a loop - 


P4-A 







Examples 


(1) IF (A) 17,18,17 
17 


(3) J = 1 
K = J 


( 2 ) 


DO 12 I = 1, 10 
Y =16. 0 
12 A(I) = B(I) 


(4) Y = SINF(A + B)/1.0-(SINF(A + E 


(5) A(J+13) = B(J + 13) 
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Phase IC 


PROCESSING OPEN FUNCTIONS 

In creating the internal file. Phase IB writes O-type sequences in 
format A whenever it finds the name in the Function Table coded as O. 

In Phase TO, Scan o all skeleton coding is brought in at once from the 
system tape and tfce substitution performed. 

A mechanism will be provided to users to add their open functions to their 
IBSYS tape. 



Format A 


Example 

■TS/gvJ _ 

lINSICN | Lgth {*5" 


jOSOOOO par #1 

io32400 par #2 

060100003721 
053600001^42- 
062100 ,par #1 


. Skeleton (Format Z) 


loeoooo K(P-.-Ar) 
032400 J (PvAO XS^ 
060100003721 
0536000ljb#^>~ 

062100 KIRAJ 

Result (Format Z) 


Y = ISIGN (K, J) 
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.*_■;■ PHASE- II 

Replace undefined addresses . .. 

Merge all sections of internal file . 

Merge with external file , , ' 

* . * ’ • ’ 

Reorganize tables-assign Data and Constant locations 

Build program string assignment table 
Assign address 


Prepare preface, place in internal load file 1 
Output text to. load file 2 










S9/6I/8. 

z n' 


SYSLB1 


SYSOU1 


SYSUT3 


SYSUT2 

Compute 


Read 
Phase II 


, ■ - 

• • H 

COMPILER - 

-- PHASE II TIMING 

* " - * 

1 t V. ' 

, . . ... ^ •- v •' ■ "■ ■' • ; ' . \ 'V - - * 



.v:- . i Write 

, : ^load 

" • ' ' • • ' ' ' - ‘ ; ’ " ' •' > file ' 

Internal Merge Table Assign Prepare Edit 
Merge reorganize addresses Preface Text' 

and 

Write-out 


May be repeated 
or omitted depending 
on size of external 
file. 


IBSYS 


Printout 


External 

Spill 

file 


Load 
File B 

Compute 

















: PHASE II A 

I While external file is being processed, S sequences have their USNs 
. (undefined sequence numbers) replaced with DSNs (defined). Where 

no DSN exists-the diagnostic-"EFN xxxxx.is undefined" is issued. 

This procedure acts like "own-coding" within the merge as described 
* below. 

II The Merge program operates on the strings of sequence as follows: 

(a) A list is prepared giving the first and last location of the various 
strings to be merged— 

(1) If the external file was hot written, the buffer location 
is given: MERGE N is set to zero. 

(2) If it was written out, the buffer location is given but the 
number of records on tape is also’ placed in cell MERGE N, 

(b) Based on the lengths, the merge-assignment routine sets up the merge. 

(c) An n-way internal merge is carried out. RQW's are simply carried 
along with the sequences. The merge key is the first 26 bits of the 
sequence header. 

(d) After completion, if MERGE N is not zero, a series of two-way 

. internal merges takes place between the already merged file and the 
buffer MERGE N is reduced by 1 for each cycle until it is zero. 


. (e) Finally, the merge returns control giving the location of the first 
and last word of the merged file. 
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PHASE II A 

Merge -Details ' 

Key: first 26 bits of.header 

Length: Exponded to include RQW’s (where applicable) . ’ 

Input to Each "Pass 11 ' 

n+*1 for first pass . file pieces + buffer 

Z for subsequent passes buffer + file 

The input areas will be variable in word length and sequence counts. The • 

first output area will be a clear area obtained by release of Phase I .. - . 

'material .that is no longer needed. 

■ ‘ ' v 

For each subsequent merge pass „ the output area must be augmented by . 
the buffer size. . • 

Thus, allocation will be a difficult problem unless large amounts of 
workspace are available. . ; V 



M 4 

8/19/63 




Phase II B 


Table Organization 

At the beginning of this section, the pertinent tables may be classified 
as follows: ' : 

Complete ’’ 

' v;’V >. ■ . trv 

;.V ' .; yV arg ' . . / ■ . ; 

Entries Completed — proto-addresses only 

•\ ISD • • ' 

;■ • ;y . idd y;; ';;.y y :r : ; 

■'•'.■y =■:•■ SDC : V; : yV ^’y 

v--. r ddc ■ yyVyy 

' DSN : ' "J’-V-iS-.y. 



temporaries 


To be broken further 
:-'EXD 




■■ ' .• ".. .N 1 • 

Revised 8/19/63 






Phase II B 






























Phase II B 

Assignment of Program String Locations 

(1) With all of BO, B2 - B7 assigned, the assignment in B1 (program 
string) must be carried out. The above tables are used only in the Scan B. 

I • f . ' 

(2) Scan A goes through the JKL sequences assigns location for the sequence 
according to its length and enters the sequence number and location in the 
Master Sequence Table. The location counter is originally set to the length 
of the transfer vector. 

(3) Next, the DSN and Program Point Table are processed to fill in actual 

addresses. H • 

(4) In Scan.B, the content words have their proto-addresses replaced 
referencing the BO-2-7 tables and the DSN and PP tables. The JEtQW's 
are changed correspondingly. For ARGn, n, 4 is placed in the address 
field. As each word is completed, its printout form is set up if the 
LIST option was given. 

(5) ‘At this point, assignment is complete and all sequences are in Format B.. 
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•_ ...... Phase II B 

': Printouts 

The printing is carried out entirely in Phase B. 

During Table Reorganization and assignment. Part I is printed. 
During Program String Assignment, Part II is printed. 

Following this. Part III is printed. , 

* * ‘ * • 

1 . . > 

All' printing is dependent on the LIST option. The program logic 
is such that processing will, be much faster if the LIST option is 
not given. ■ VV- ” . ' ; '■ 







Phase II B 
Printouts (example) 

COMPILATION OE' TIT DE • 


VARIABLE 

' TYPE • BASE , 

ADDRESS 

VARIABLE 

TYPE 

BASE 

address 

VECTOR 

: ' R ' : -0 

0000 

RESULT 

R 

' r 3 

0000 

MATRIX 

• R ,' o 

0100 

'HEAT 

; D V, 

V' 3 

0500 

LOGIC 

■ I ’ ’•••: o' 

0201 

COLD 

D • 

3 \*. 

0700 

BOOL 

• ‘ ** . . # ' 
, ' L . ;V.2 : :. • 

oooi 

PO.WER ‘ 

C 

4 . 

0000 

VALUE’ 

L 2 

V 0002 .. 

JIN 

I ; 

; 4 ' - 

0001 

BOX 

r ■■ . 2 ■' 

0003 

INPUT 

• ■ I . 

4 ' 

0002 


Code 

CONSTANT , ADDRESS-BASE O 


CONSTANT * 

ADDRESS-BASE C 

is 

' . . 1 . v .0310 ;; 

7S 

4.71 

• 0316 

2S 

;• 2 ; 0311 

. ID 

' 5.34D 

v 0318 V, 

3S 

;- : 6 ..;.■ 0312 .; 

2D 

6.74289D V: 

. .. 0320 . 

4S V; 

’ 43 ■ 0313 . 

3D 

l.EioD 

'0322 ‘ ■ 

: 5S ' ; 

27 0314 ''■ ■' * 




6S 

;:/■ 3 .74- ‘v : r v v ;'0315 ; - 



■ \ • ■ ' ■ ; . ■ . • 



\*y*\ * 

* 7 ’.. ■ . 



' <'' V .: : : _ \yy : '. */•: \ •* \vi 
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Phase II B 


Pointout (example) concluded 


Seep ence 
1A ■ 

■ 1A1 
• IB. ' 
2A 

3A , 
4A 



Master Sequence Table 


Address-Base 1 

: : 0007 

; 0014 ' 

» • 

0023 
0064 
0073 
0084 * 


(4 columns) 



Section 

;■ UNIQUE DATA ’ ; 
TRANSFER VECTOR 
PROGRAM STRING 
: COMMON 1 
■ COMMON 2 - : ' 

COMMON 3 
COMMON 4 • ; 

COMMON 5- 
COMMON 6 
(name) 
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Phase II C 


The function of Phase II C is to output the finished program. • • / 

1. Preface Preparation- -(see R 4. 1) 

(a) The TITLE, COMMON and TRV names are placed • . ; ' - 

(b) The TRV and Total Preface Count is placed 

(c) The eight counts are placed 

(d) The external bits (if applicable) are set 

2. The Preface is built in the proper place in (internal) load file A. 

3. The Text is written out (blocking to be specified later) in this sequence. 

Unique Data - BO . ' ; 

' Program String • RQWs . • 

Program String • > B1 (starting with first word following transfer vectoi 
' . ■ COMMON # 1 B2 ■. .7= '• ■ 

COMMON # 6 B7 ' ■" 
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Update Program 


Name 

Name 

Name 


Name 


Handles writing on LIB Tape ; 

LIB ADD insert 

LIB DEL . delete 

both replace 

Special Operations 

LIB .CPY (new copy with system routines only) 

LIB LST '' (list) 

LIB CHG' Name 2 (permanent name change) 
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LIBRARY TAPE 


SRNT (SYSTEM) 
SRDT (SYSTEM) 

SRET (SYSTEM) 
SRNT (USER) 


REC 1 


REC 2 


SRDT (USER) 


SRET (USER) 


REG 6 


PREFACES (SYSTEM) 


EOF 


PREFACES (USER) 


EOF 


TEXTS (SYSTEM) 


TEXTS (USER) 


EOF 


EOF 
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Update 


/ 

1. For LIBADD, LIBDEL and bIBCHG: . 

SENT Table must be altered but kept in order by name. 

SRPT references to SENT must be altered to reflect changes in SENT . 

This implies a change in all references to names beyond the point 
(or points) of change in SENT . 

'• . SEET undergoes same consideration as SEPT. 


Each new program preface must be processed for SEPT and SEET entries. 
Multiple entries are added to SRET (preserving name order) and dropped 
from the preface. The transfer vector is transformed (using SENT) into 
an SEPT entry which is then compared against SEPT to avoid duplication- 
details of this are still to be resolved. The transfer vector is dropped from 
the preface—preserving the vector count. ■ 

‘ ■ . • • ; * 

2. For LIBADP ' ; : ‘ . 

The appropriate set of prefaces and texts are rewritten with the new 
prefaces and texts added to the end of their respective files. The new 
names in SENT will reference the added record positions. •. 

3. For LIBPEL ‘ 

. The appropriate set of prefaces and texts are rewritten dropping the ones 
being deleted. 

SENT entries referencing relative record position altered by the deletion 
must be corrected accordingly. ' 

4. LIB CP Y 

; Strip user table records and preface and text files in" creating new tape ■ 

. containing system fij.es only. 

r , ,T ' ' 

A means of recognizing length and nature (whether user records and files 
are present on tape) of library for load and update purpose might be 
necessary. 

Physical blocking of .prefaces and texts are indicated. : 

•• • ■: - y; %:. ', ; ’' . .8/14/63 ' 



MAPA ' 

Processor 

A "one pass" system since entire symbolic program will reside in : f 

memory. This limits the size of MAPA program to 700 input.cards. . 

’ ;■ ' ' ' ' ■ • 

Output 

Must be organized like FORTRAN output. The LIBA may be updated ' 
following assembly or the load file will be used by the loader. Re¬ 
location codes as in FORTRAN IVA for program strings and data. The 

output of MAPA is restricted to FORTRAN subprograms (FUNCTION • 

«* ‘ 

or SUBROUTINE). It cannot serve as independent or "main" program. 
General 

There will be 9 location counters: transfer vector, data, program string 
and 6 COMMONS. The user is responsible for using the EVEN operations 
whenever necessary. The loader will always relocate sections to locations 
modulo 2. 


I. To be included in MAPA: 

(a) all machine mnemonics, 1301 and 7909 ^ 

(b) literals, elements, terms, expressions. Boolean expressions 

(c) Psuedo-ope rations as described by MAP unless specified below. 

(d) 7090 double precision routines : i 

(e) Special operations: ZAC, ZSA, ZSD, BRA 

(f) Prefix codes ' .. 


II. Not to be included in MAPA: 

,<W: 

(a) Location counter psuedo-operations V 

USE - BEGIN , -i ' , 

(b) Program,section psuedo-operations 

■ ' ©UAL -ENDQ CONTRL - COMMON 

(cV Storage, allocation and data generation psuedo-operations 
' LORG r LDIR - RBOOL -LBOOL - LIT - MAX - MIN 




L 
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(d) File dictionary psuedo-operations 
FILE - LABEL 

(e) Operation definition psuedo-operations ■ V 

OPD - OPVFD - OPSYN 

. (f) Special system macros ‘ 

• SAVE-SAVEN - RETURN 7.., 

1 . . ■■■•..* ■* ■ ; '■. X'* : 

(g) Macro-related psuedo-operations 

IFT - IFF - IRP - ORGCRS - NOCRS - MACRO - ENDM , 

. (h) Absolute assembly psuedo-operations : V ' . ■ 

ABS - FUL - PUNCH - UNPNCH - TCD 
(i)List control psuedo-operations . , , 

LBL - INDEX - PCG -'PMC - •'7^ V-V. 

’ (j) Special operations , •..7'’ ' 

BFT - BNT - ... - *** - IE3 -RIB - SIB 7 ■' ■■■ , ■ : 77 AVAR'S 

(k) Macro generation mechanism . '' ■. 

(l) IOCS operations . 

, *■ ■ _ . 

(m) Immediate symbols . ." 

HI.. To be included with modified definition 

ORG - absolute origin not permissible, symbolic origins must be 
previously defined 

BSS - BES - EQU - SYN - symbolic variable must be previously defined 
VFD - symbolic sub-fields must fall in address or deer portion of word 
RETURN - expansion of return is: ■ j; : 

AXT **, 4' ' •; V. ' 7 ' 

TRA 1, 4 

IV. New psuedo-operations for MAPA 

SUB-PROGRAM TYPE PSUEDO-OPERATIONS 

These psuedo-operations specify the name and type of sub-program being 
assembled. The constituents of the SUBR and FUNCT psuedo-operations 
are: . - ■ ' '• ■ ", 

1. Sub-program name in the location field cannot be blanks 

2. SUBR or FUNCT in the operation field - : • . 

3. The variable field is ignored ... Q2 
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This entry must be included at beginning of program deck. .■ , 

LOCATION COUNTER PSUEDO-OPERATIONS 

There are 8 location counters available in MAPA programs. One for'. 
program string, one for data areas and 6 common. The normal mode tv . 
is program. . There is no limit to the number of times control is passed : 
between these modes. . ' v ■ 

The COMMON psuedo-operation ( '/y : " : :/.y- , ■’ v' 

The constituents of the COMMON operation are: ■ : '' . 

1. A symbol or blanks in the location field . 

2. COMMON in the operation field “ • : ' 

3. The variable field is ignored 

The effect of this operation is: ' 

The location counter specified by the label field is activated (initially ^ 
zero) and will remain in control until another COMMON* PROG or DATA v 
is encountered. The same symbol maybe used on COMMONS repeatedly: 
and will continue from previous usage. v v, :?; 'V 

The PROG psuedo-operation ^ .o'. 'v' • 

The constituents of the PROG psuedo-operation are:. o v'ox£'- 

. 1. The location field is ignored 

2. PROG in the operation field 

3. The variable field is ignored 

This places the program location counter in control until COMMON or '.Ovii/ 
DATA is encountered. OA-’.o 

The DATA psuedo-operation : 

The constituents of the DATA psuedo-operation are: v 

1. The location field is ignored . . ' ■ ' 

2. DATA in the operation field 

3. The variable field is ignored. ' 

This places the data location counter in control until PROG or data is. 
encountered. V :/'■ . ’ -.'c;;' ? 
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■ FORTRAN IVA Monitor 

— 

... ’ • .... . Phase 2 Program . . 

Loc. Ctrs 'Common' Info. Tr. Vector 

i 

i' 

Symbol Tables 
-2000- 

Input 

... V\ Cards. 

-9800- ; ‘ - 

Input Cards 

(Internal Format) 

’ -7000-^ . ' v > 

Operation Table 

-1500-.' . - ' l'. 

Phase 1 Program 


MAPA 
Memory 
Map 


During Phase 1 




































MAPA 


Phase 1 will process to binary as much as possible during card read in. 

Outline of Phase 1: 

1. ' Stack input card format 

* f ^ * % , 

2. Set-up Internal format 

a. search operation table obtaining flags and machine OP code. 

b. unblock to internal format per operation type. 

c. if data generating psuedo-op, convert data before placing in internal.. 
. d. if machine instruction, de-block variable setting indirect and 

* ' v 

index bits into machine word. Literals to table and literal counter 
updated. ,• 

Set relocation bits for symbolic variables, 
e. move assigned location and location counter no. to internal format. 

3. Construct symbol table 

4. Problem area appears to be the expansion of macro-like operations. 

5. . A space counter for each location counter will be incremented so 

Phase 2 can allocate'memory for output strings. 

Phase 2 will complete the assembly. 

1. Allocate output strings per space counters for each location counter. 

2. Assign literal table location counter.to follow data counter. 

3. Scan sequentially the internal format: 

a) Search, symbol table to. complete machine word. 

b) Evaluate expressions in variable. 

c) Set relocation counter bits into RQW where required. - 

d) Place in output string per location counter. 

e) .Write listing, including diagnostics. ' 

4. After completing scan of internal format: • 

Prepare and write preface. • - 

Write text. 

Transfer control to Monitor. 

• ’ q 5 
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MAP A 


Elements required in internal format (4 words) 
Input Sequence No. * . n • 

. ■ ' Assigned location 

Location counter No. . ■ ! , : * 


.Flags from operation table (includes machine op) 
Relocation flag (addr, deer) 

Literal flag (addr, deer) • x 

No. of words in variable 
Machine word *"Y 


Internal form variable^) 
Diagnostic code . 


Continuous for data generating psUedo-op 


Length of variable + 4 = next internal format 


'/?. 


Elements required for Symbol table (2 words) 
Symbol ' • ' 

Assigned location 

Location counter No. . (incl-transfer vector) 

* * t • 4 * 

4 \ # * 4 ' * • 

Elements required for Operation table (2 words) 

1 . Mnemonic 

. Flag word same as MAP?? 

Elements required in STACK area (14 words). 

'• .Input card image. - •/:’ ' ’/ 

Input Seq. No. {15 bits) ' 

' 'List Control Flags (6 bits)' ' 
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MAP A INTERNAL FORMAT . 


- WORD # 1 


ASSIGNED 

LOC 

LOCATION 

CTR. 


NO. 


- WORD # 3 - 

L F INTERNAL REL.i NO. WORDS 
I L VARIABLE FLAG IN VARIABL] 
T. A FORM 


- WORD # 2 - 
FLAGS FROM OP TABLE 


- WORD # 4 - 
MACHINE WORD 


- WORD # 5 -etc. 

INTERNAL VARIABLE OR MACHINE WORD CONTINUED 


LOC. CTR. NO. 


000 = PROGRAM 
001 = COMMON 1 
010 = 2 

Oil = 3 

100 =• 4 

101 = 5 

110 = V 6 

'111 = DATA • 


REL. FLAG 

000 = NONE 
001 = ADDR. 

010 = DECR 
Oil = BOTH 

100 = TO TRANSFER VECTOR 

LIT. FLAG 

00 = NONE 
01 = ADDR 

10 = DECR 

11 = BOTH 


NO. WORDS IN VARIABLE + 4. = NEXjT INTERNAL FORMAT. 
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Notes 


If ETC - Input sequence number in Internal format will be the last ETC card 
of a series. ETC cards w^ll be evaluated during Phase 1 to create a one 
entry Internal record. 

List,control psuedo-ops, *cards, REM cards will not be placed in Internal 
format. . 

DUP will be expanded while placing in Internal. DUP itself will not be in 
Internal. • 

The first definition of a doubly-defined symbol will be used. 

• . * •' 

Non-space taking psuedo-ops are in Internal to compute addresses for 
listing and compile time info only'. ' 
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Sample of MAPA Listing 


PHONEY SUBR 


TRANSFER VECTOi 


T 00000 


poooo 

00012 

00013 

boo.14 

p0026 

P0032 


272525606060 


poooo 

boon 


00000 

00001 

00002 

00003 


ooooo 


00005 

00006 

00007 

00010 

00011 

00012 


00013 

00014 

00015 


00012 


214570602223 

ooooooooooool, 

07 670000000d 


Relocation 
Counter 
ADDR/DECRi 


0000000.00020 

002000000005 


302160302160 


063400400013 


050000000033 

060100000023 

007400400000 


077400400000! 

00200040000lj 


000032000000 


D (00033 


LITERALS 
0.00000000006 


D 

D 

T 


460000000016 P 
450000000032 D 
060200000002 
475400000000 
477400400000 
177777400004 


2 

P 


Location 


P 


GEE 


DATA1 


TBL 

BLK 

DEC4 

INIT 


JUNK 

Jl' 

J2 


START 


K2 


SYM3 


RET 

RET 


iK5~ 


JUNK 


xx/ixx/xx 


. 


Operation 


A 


TITLE 
ENTRY ‘ | 
DATA 
BCIb, 

PZE 
ALS 
BSS 
DEC 
TRA 


NIY BCD INFO. 
K2,, START 
0 

10 

16, 25, 33, 62 
SYM3 


COMMON 

BSS 

BCI 


PROG 
SXA • 
CLA 
STO 
CALL 


COMMON 

BSS 


PROG 

STQ 

CAL 

SLW 

ZAC 

AXC 

TXI 

RETURN 
AXT 
TRA 
BSS - 


Variable 


Dias 

Co< 


START 


... ii 


COMMON 
PZE 
END 


1, HAbHA 


RET, 4 
= 6 

BLK+7 

GEE 


K5 

INIT 

2 


K2, 4 

*-6, 4, -1 


**, 4 
1,4 
2 - 


,, INIT 
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Operation Table Adjective Codes 


IX codes are not placed in Internal area 

, • •' . 

4X-5X codes are space-taking operations 

. ■ a . • ," • , ■; : , ■' 

6X codes are non space-taking psuedo ops. . 

Within psuedo-operation adjective coding sub-operations are assigned. 

Adjective ■ ' ’ «• • 

Code Sub-Op Operation 

. . * t, 

00 . " ' /■ / ETC ' ' ,/ : ’. ' • . 

10 / List control operations ' • 

■ * 0 ’• ' UNLIST ' ' 

. • 1. "• LIST 

2 ' • TITLE . • ‘ ' ■ ' "• 

• . 3' ’ -V DETAIL •• 

,. 4'- ‘' EJECT ' 

. 5 • SPACE ' ' • ■ 

• ■ 6 : /'• ■ PCC V '• 

• 7 ; ,vTTL / \ ' 

11 ! . ” ' : REM . " ... • ■ 

• ' 40 • ■ ; ■ , • ' i ■■ •; ■ A ’ ' v ; v /.: • 

• 41 •_ ■. Prefix • 

42 • .I/O Command 

43 ■ ' ' - ' ' • ’ B . v ' ; 

• 44 ... . C . v : .• • 

45 .. . D- . ' ■■■ ’ 

46 . •'./ E •' " . ' ' ' 

47 . Select 

50 ‘ . Disc 4 field channel commands (K) 


• Q9 
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Adj ective 
Code 


Operation 


Disc channel commands 


Boolean variable ? 


Disc orders 


Unexpanded instructions (7094 etc.). 

Storage allocation 

BSS ' , . ’ 

BES 

EVEN 


Data generation 


OCT 

DEC 

BCI 

VFD 

DUP 


Location Counter 


COMMON 

PROG 

DATA 

ORG 


Symbol definition 

EQU 

SYN 

BOOL' 

ENTRY • • 

NULL • 

END 


???' SET, CALL, RETURN 
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Codes 55 and 56 - Space Taking Psuedo-operations 
BSS, BES, EVEN, OCT, DEC, BCI, VFD 


Scan variable to construe^ machine words. 
Convert where necessary. 

Insure that VFD with symbolic is in 
Address or deer of word. • . 

Increment location counter. 

Place symbol and assigned address in tables. 
Set relocation flags in Internal. • 

Set diagnostic flags. 

Allow for re-entry if next item is ETC.. ' 
Increment space counter. 

’ 
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Code 6X - 
COMMON 

ENTRY - 

NULL - 

EQU, SYN 

« 

ORG - 

BOOL - 
COMMON' 


Non Space-taking Psuedo-operations 
•PROG-DATA-ORG-EQU-SYN-BOOL-ENTRY-NULL 


extract symbol from variable field and place .in ENTRY list.' 

Check for duplicates. Diagnostic 

Set flags in Internal format. •' 

• •• Compute symbol address and place in STBL. 

Diagnostic if doubly defined and retain initial entry in STBL 1. 

Move current .location and location counter number to STBL 1. 

■ Extract variable to internal format. 

If symbolic variable, search STBL obtaining assigned locations. 
Evaluate variable expression. ’ , 

: Diagnostic if all variable symbols were not under the same ' -r 

.. Location counter. • 

Compute symbol address and place in STBL. 

Diagnostic if doubly defined and retain initial entry in STBL 1. 

Move evaluated-expression and location counter'number'to STBL 1. 

' Set Internal format machine word. 

. ' Diagnostic if Symbol not previously defined. 

Extract variable to Internal. 

Evaluate variable (see EQU). 

■' If' current location counter contents are higher than last used for 
' location counter now in control, replacedast used with current 
^•location counter. •• • 

•Initialize current location counter and location" counter number per 
variable. .•• • 

Set Internal format machine word. . 

? ? ? 

Move current location counter back to permanent area per current 
, location counter number. 

Search COMMON names with input symbol. 

If previously defined COMMON, move location counter and number 
to current area. 

Diagnostic if more than 6 COMMONS. 

•• If not previously defined move symbol from input to list of COMMON 
names, -and move location counter number to current^zero current 
. location counter. '•. ; . . , .. ■ . . 

Set Internal format machine word. . ' ' 


Q20.1 

8/15/63 



PROG or DATA - Move current location counter back to permanent area per 

current location number. 

Move location counter from permanent (PROG or DATA) and 
assign current location counter number. • 

; Set Internal format machine word. 

. ■ ■ < . 
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LOADER 



Phase A ' 

Reads Control Cards 
Reads Load File A (prefaces) 

Builds tables (commons/subprogram names) 

• * Reads dependency table frorp LIB 

Builds tables further 
Applies USE, NAME, OMIT 
Reads in Prefaces from LIB file 
Allocates COMMONS 
Allocates remainder of program 
Prints Allocation Chart 

Phase B 

Reads texts into core 
Links transfer vectors 
Relocates and 

(a) Punches absolute self-loading deck 

(b) , Fills core placing STR in unused locations 
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Linkage to Subprograms 

Present IBJOB System: 

A NAMEd subprogram may have symbolic locations that serve as 
linkage points. 


Proposed System 


A NAMEd FORTRAN may have linkage only to its prologue. 

% • 

A NAMEd MAP subprogram may have liukage to specified ENTRY points. 
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Library files 

File 1; Dependency-Sequence Table 

. Prefaces . ' 

File 2: Texts 

(The system subprograms always precede the user subprograms) 
% Load files 


Work File A 

Prefaces (no sequence or dependency table) 

Work File B 

Text . 
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FORTRAN PREFACE 


Word 1 


* 

4 / 


12 3 


4 5 6 


TITLE ' _ 

7/ 7 

Transfer 
Vector Count 


. COMMON #1 Count 
\ 7 8 9 ; 

•' • ' COMMOIST #3 Count 

10 11 12 

COMMON #5 Count 

13 14 15 

f 

j_ Unique .Data Count 

• COMMON NAME #■ 1 


12 3 15 

Total Preface Count 


4 5 6 


7 8 9 


10 .11 II 


13 14 li 


COMMON #2 Count 


COMMON #4 Count 


COMMON #6 Count 


Prog. String Count 


jj Fixed 
^ for 
I every 
I preface 


♦ \ .. i 


COMMON NAME # 6 _ • 

NAME OF SUBPROGRAM CALLED (#1) 


(TRANSFER VECTOR) 


28 NAME OF SUBPROGRAM CALLED (#15) 


* Each bit of the 2 sets of 15 bits.are associated with one of the named 
subprograms in the transfer vector. The left set are used as external 
• .indicators and the right set. a^dummy name indicators. 

Preface is completely variable in length from word 7 on. 
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MAP PREFACE 



* This bit is set for a MAP text 

•** Preface is completely variable in length frpm word 7 on. 
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Subroutine Name Table (SRNT) 
in first file of Library 


' NAME 1 

3 

Relative Location T8 
of Routine in LIB 

2ljjAssociated Position 36 
in SRDT (If any) 

NAME 2. ’ ' 

3 

. 

Relative Location 18 
of Routine in LIB 

21 

5i< 

CO 

00 

o 

o 

V 

etc. 

¥ 


* Bits 19-21 will indicate whether there is any SRDT position # in Bits 22-3 

Table wiil be in alphabetical order by name, a 2-word entry per routine 
• in the library.;. 
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• * 




A and B represent SRDT positions appearing in SRNT entries, each of 
which are the initial location of a string of dependent routines. 

Elimination of duplicates (where feasible) must be considered. 

Does this eliminate need for Transfer Vectors in.library prefaces? 
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Subroutine Entry Table (SRET) 
in 1st file of library 



Table will be sorted in alphabetical order by name, a 2-rword entry for 
‘every "multiple" entry associated with any routine in the library. 

Entry names in library prefaces are not necessary. 
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The Object System as Loaded 
• (no overlay) 


7094-11 considered 
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Chart Printout by Loader 
(no overlay) 

MAIN PROGRAM: " ' NAME 

OCTAL DECIMAL 
Entry Point 1037 1241 

* _ 4 . 

% 

LOCATION OF ROUTINES 


NAME • 

0027 

SINCOS 

1031 

EXP 

1373 

SUBR1 

2001 

SUBR3 

2037 

FXEM 

2077 


LOCATION OF COMMON REGIONS 


/BLANK/ 

3014 

/LABELl/ • 

. 7120 

/LABLE2/. 

: 10164 

/LABEL3/ 

’ 12146 


UNUSED CORE ■ 

FROM 13702 ,.y\ 6834 V 

TO 77777 32768 . ^ • . 

■ ■ ' ' ; ■ . .. : : R6 
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1. Unequal SIZE of labelled COMMONS 

2. ' Insufficient memory 

3. Undefined subprogram requested 

7 ' ( * 

4. Ambiguous or Erroneous, control card 



COMMON sections are allocated modulo 2. There is no relocation 
within these sections. 

Program string carries relocation information. It is also allocated 
modulo 2.- 

Unique data is allocated modulo 2. . 

If from MAPj^here is relocation. 

If from a FORTRAN, it is loaded without relocation. 
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Overlay Areas 1 only - defined by largest chain to | 

overlay. ( 


Common 


All Blank common residentdabelled* 
common referenced by two or more 
chains - resident. 

■ Unique labelled common - overlay. 


Chain Definition Loader - determined tree of routines 
| (f'-’s or control sections called by name 

^ appearing on overlay card. 


User Intervention Fully automatic - Load and Go. 


i ~ape. Arrangement 


Object Time 


lr) n Tapes used for stacking 
overlay segments. Files 
prepared by loader prior to 
execution, user-specified 
distribution of tapes should be 
considered. 


' •-- --a Routines 
CWnced by 
btn&r Chains 


Proposed: (D Load them in v, 
resident core. 

(D Dupe them in each 
calling chain on tape. ’ * 

Note : if © were adopted, LDRA 
would do so selectively. 


Multiple - defined by origin 
cards. (Chains within chains.) 


No explicit discussion other than 
its implication as a control section 
on page 4: any common block can 
appear only once. 


All Decks physically following 
$ Origin card before next $ Origin 
in input file. 


Unclear as to where, and when 
control cards are inserted - 
assumption is made that there 
is no load-go. User must arrange 
output decks from FTC or MAP 
appropriately. 


Up to 7 sysut tapes available - eacl 
chain may specify or else get same 
Roughly same as Overlay A. 


At Object time whole chain 
hierarchy is loaded by a call to 
any part of the chain. This is in 
conjunction with unique deck- 
appearance rule. R 8 

Note: All library routines _ , 
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in resident core. 






OVERLAY A 


"OVERLAY 


(cont.) 


Same rule should apply. Implication Rule: No dummy function name 

is that External functions can be part (Parameter of subroutine) can 

but not the beginning of a chain. • initiate overlay. 
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LOADER LAYOUT 
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LOADER MEMORY MAP 




* Phase A 


F4A 'Monitor 


Phase B 


Phase A 


OVERLAY PATCH A 


(OVERLAY) 





LOAD FILE PREFACES (1000) 


LIBRARY TABLES (6000) 


LIBRARY PREFACES (1500) 




LOAD FILE 


OVERLAY PATCH B 


Phase B 


F4A Monitor 


Phase B. 


TEXTS 


LOAD FILE 


OVERLAY PATCH B 
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Op and Tag Symbolic notations and equivalent 
bit settings 

= 111 

= 000 (no transfer vector, no Common) . 

001 (just Transfer Vector) 

010 (just Commons) 

Oil (both Transfer Vector and Commons) 

= 000 (Load File) • 

• 100 OLIBE) 

= 001 * . .' '>■; • • , 




R 12 • 
7/31/63 











